home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 5
/
Apprentice-Release5.iso
/
Source Code
/
Libraries
/
SAT 2.3.8
/
Libraries & Documentation
/
Misc
/
For Think P v3
/
TP3extra.p
< prev
Wrap
Text File
|
1995-03-30
|
346b
|
18 lines
unit TP3extra;
interface
FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
implementation
FUNCTION _Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
INLINE $225F, $201F, $A1AD, $2288, $3E80;
FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
begin
Gestalt := _Gestalt(selector, response);
end;
end.